inherited FCadastroClientes: TFCadastroClientes
  Left = 375
  Top = 125
  Caption = 'Cadastro Clientes'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Label49: TLabel [0]
    Left = 13
    Top = 373
    Width = 37
    Height = 16
    Caption = '% ISS'
  end
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        inherited Pmostrando_excluidos: TPanel
          TabOrder = 3
        end
        object btnRelatorio: TBitBtn
          Left = 8
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Relat'#243'rio'
          TabOrder = 2
          OnClick = btnRelatorioClick
        end
      end
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'CLI_CODIGO'
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_RAZAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_FANTASIA'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_TIPOCLIENTE'
            Width = 112
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CPFCNPJ'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_INSCESTADUAL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_INSCMUNICIPAL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_FONE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_FAX'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_EMAIL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_ENDERECOCORRESP'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_BAIRROCORRESP'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CEPCORRESP'
            Width = 121
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CIDADECORRESP'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_ESTADOCORRESP'
            Width = 147
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_ENDERECOPEDIDO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_BAIRROPEDIDO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CEPPEDIDO'
            Width = 106
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CIDADEPEDIDO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_ESTADOPEDIDO'
            Width = 132
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_VENDEDOR'
            Width = 103
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_OBS'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CONTATO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CONTACONTABIL'
            Width = 137
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_GRUPO'
            Width = 77
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CENTROCUSTO'
            Width = 127
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_CLASSIFICACAO'
            Width = 133
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CLI_TIPOVENDA'
            Width = 104
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
        end
        object PageControl1: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 389
          ActivePage = TSIdentificacao
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnChange = PageControl1Change
          object TSIdentificacao: TTabSheet
            Caption = 'Cliente'
            object Label9: TLabel
              Left = 215
              Top = 56
              Width = 26
              Height = 16
              Caption = 'CPF'
            end
            object Label10: TLabel
              Left = 7
              Top = 146
              Width = 50
              Height = 16
              Caption = 'Fantasia'
            end
            object Label13: TLabel
              Left = 369
              Top = 56
              Width = 107
              Height = 16
              Caption = 'Inscri'#231#227'o Estadual'
            end
            object Label16: TLabel
              Left = 499
              Top = 56
              Width = 83
              Height = 16
              Caption = 'Insc Municipal'
            end
            object Label1: TLabel
              Left = 7
              Top = 102
              Width = 133
              Height = 16
              Caption = 'Nome ou Raz'#227'o Social'
              FocusControl = DBENome
            end
            object Label14: TLabel
              Left = 7
              Top = -2
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label8: TLabel
              Left = 235
              Top = 238
              Width = 33
              Height = 16
              Caption = 'Email'
              FocusControl = DBEemail
            end
            object Label5: TLabel
              Left = 234
              Top = 190
              Width = 40
              Height = 16
              Caption = 'Fone 1'
            end
            object Label6: TLabel
              Left = 332
              Top = 190
              Width = 40
              Height = 16
              Caption = 'Fone 2'
            end
            object Label21: TLabel
              Left = 6
              Top = 236
              Width = 55
              Height = 16
              Caption = 'Vendedor'
            end
            object Label24: TLabel
              Left = 7
              Top = 190
              Width = 45
              Height = 16
              Caption = 'Contato'
            end
            object Label19: TLabel
              Left = 535
              Top = 234
              Width = 35
              Height = 16
              Caption = 'Grupo'
            end
            object Label45: TLabel
              Left = 8
              Top = 56
              Width = 57
              Height = 16
              Caption = 'Cod. Pais'
            end
            object Label46: TLabel
              Left = 75
              Top = 56
              Width = 64
              Height = 16
              Caption = 'Desc. Pais'
            end
            object DBECpfCNPJ: TDBEdit
              Left = 215
              Top = 73
              Width = 146
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_CPFCNPJ'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 5
              OnExit = DBECpfCNPJExit
              OnKeyPress = DBECpfCNPJKeyPress
            end
            object DBENome: TDBEdit
              Left = 7
              Top = 118
              Width = 578
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_RAZAO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 8
            end
            object DBEFantasia: TDBEdit
              Left = 7
              Top = 162
              Width = 578
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_FANTASIA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 9
              OnEnter = DBEFantasiaEnter
            end
            object DBEemail: TDBEdit
              Left = 235
              Top = 254
              Width = 293
              Height = 22
              CharCase = ecLowerCase
              Ctl3D = False
              DataField = 'CLI_EMAIL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 14
              OnEnter = DBEemailEnter
            end
            object DBLCBVendedor: TDBLookupComboBox
              Left = 6
              Top = 254
              Width = 222
              Height = 22
              Ctl3D = False
              DataField = 'CLI_VENDEDOR'
              DataSource = dsCadastro
              KeyField = 'VEND_CODIGO'
              ListField = 'VEND_NOME'
              ListSource = DSVendedor
              ParentCtl3D = False
              TabOrder = 13
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBRGTipoCliente: TDBRadioGroup
              Left = 63
              Top = 9
              Width = 303
              Height = 41
              Caption = '  Tipo Cliente  '
              Columns = 3
              Ctl3D = False
              DataField = 'CLI_TIPOCLIENTE'
              DataSource = dsCadastro
              Items.Strings = (
                'Fisica'
                'Juridica'
                'Outros')
              ParentCtl3D = False
              TabOrder = 1
              Values.Strings = (
                '0'
                '1'
                '2')
              OnClick = DBRGTipoClienteClick
            end
            object DBEInscEstadual: TDBEdit
              Left = 369
              Top = 73
              Width = 120
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_INSCESTADUAL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
              OnKeyPress = DBEInscEstadualKeyPress
            end
            object DBEInscMunicipal: TDBEdit
              Left = 499
              Top = 73
              Width = 86
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_INSCMUNICIPAL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 7
            end
            object DBEFone: TDBEdit
              Left = 235
              Top = 207
              Width = 95
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_FONE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 11
              OnKeyDown = DBEFoneKeyDown
            end
            object DBEFax: TDBEdit
              Left = 334
              Top = 207
              Width = 94
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_FAX'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 12
              OnKeyDown = DBEFoneKeyDown
            end
            object DBEContato: TDBEdit
              Left = 7
              Top = 207
              Width = 221
              Height = 22
              Ctl3D = False
              DataField = 'CLI_CONTATO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
            end
            object DBRGSituacao: TDBRadioGroup
              Left = 374
              Top = 9
              Width = 210
              Height = 41
              Caption = '  Situa'#231#227'o  '
              Columns = 2
              Ctl3D = False
              DataField = 'CLI_SITUACAO'
              DataSource = dsCadastro
              Items.Strings = (
                'Ativo'
                'Inativo')
              ParentCtl3D = False
              TabOrder = 2
              Values.Strings = (
                '0'
                '1')
            end
            object edGrupo: TDBEdit
              Left = 534
              Top = 254
              Width = 51
              Height = 22
              Ctl3D = False
              DataField = 'CLI_GRUPO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 15
            end
            object edCodigo: TDBEdit
              Left = 8
              Top = 18
              Width = 47
              Height = 22
              Ctl3D = False
              DataField = 'CLI_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object DBEdit1: TDBEdit
              Left = 75
              Top = 73
              Width = 126
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_DESPAIS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 4
            end
            object DBEdit2: TDBEdit
              Left = 8
              Top = 73
              Width = 54
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_CODPAIS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 3
            end
            object DBRadioGroup1: TDBRadioGroup
              Left = 6
              Top = 295
              Width = 221
              Height = 41
              Caption = '  Status do Cliente  '
              Columns = 2
              Ctl3D = False
              DataField = 'CLI_STATUS_BLOQUEIO'
              DataSource = dsCadastro
              Items.Strings = (
                'Bloqueado'
                'Liberado')
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 16
              Values.Strings = (
                '0'
                '1')
            end
          end
          object TSEndereco: TTabSheet
            Caption = 'Endere'#231'os'
            ImageIndex = 1
            object Label23: TLabel
              Left = 0
              Top = 307
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object DBMemo1: TDBMemo
              Left = 28
              Top = 310
              Width = 553
              Height = 45
              Ctl3D = False
              DataField = 'CLI_OBS'
              DataSource = dsCadastro
              MaxLength = 255
              ParentCtl3D = False
              TabOrder = 3
            end
            object GroupBox1: TGroupBox
              Left = 0
              Top = 236
              Width = 581
              Height = 69
              Caption = '  Identificador Endere'#231'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              object DBRGCorrespondencia: TDBRadioGroup
                Left = 11
                Top = 18
                Width = 131
                Height = 39
                Caption = '  Correspond'#234'ncia  '
                Columns = 2
                DataField = 'CLI_IDENTENDCORRESP'
                DataSource = dsCadastro
                Items.Strings = (
                  '1'
                  '2')
                TabOrder = 0
                Values.Strings = (
                  '1'
                  '2')
              end
              object DBRGPedido: TDBRadioGroup
                Left = 140
                Top = 18
                Width = 109
                Height = 39
                Caption = '  Pedido  '
                Columns = 2
                DataField = 'CLI_IDENTENDPEDIDO'
                DataSource = dsCadastro
                Items.Strings = (
                  '1'
                  '2')
                TabOrder = 1
                Values.Strings = (
                  '1'
                  '2')
              end
              object DBRGDuplicata: TDBRadioGroup
                Left = 247
                Top = 18
                Width = 109
                Height = 39
                Caption = '  Duplicata  '
                Columns = 2
                DataField = 'CLI_IDENTENDDUPLICATA'
                DataSource = dsCadastro
                Items.Strings = (
                  '1'
                  '2')
                TabOrder = 2
                Values.Strings = (
                  '1'
                  '2')
              end
              object DBRGBloquete: TDBRadioGroup
                Left = 354
                Top = 18
                Width = 109
                Height = 39
                Caption = '  Bloquete  '
                Columns = 2
                DataField = 'CLI_IDENTENDBLOQUETE'
                DataSource = dsCadastro
                Items.Strings = (
                  '1'
                  '2')
                TabOrder = 3
                Values.Strings = (
                  '1'
                  '2')
              end
              object DBRGNF: TDBRadioGroup
                Left = 462
                Top = 18
                Width = 108
                Height = 39
                Caption = '  Nota Fiscal  '
                Columns = 2
                DataField = 'CLI_IDENTENDNF'
                DataSource = dsCadastro
                Items.Strings = (
                  '1'
                  '2')
                TabOrder = 4
                Values.Strings = (
                  '1'
                  '2')
              end
            end
            object GroupBox2: TGroupBox
              Left = 2
              Top = 0
              Width = 743
              Height = 117
              Caption = '  Endere'#231'o 1  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              object Label2: TLabel
                Left = 72
                Top = 18
                Width = 64
                Height = 16
                Caption = 'Logradouro'
                FocusControl = DBEEndereco1
              end
              object Label3: TLabel
                Left = 508
                Top = 18
                Width = 34
                Height = 16
                Caption = 'Bairro'
                FocusControl = DBEbairro1
              end
              object Label4: TLabel
                Left = 8
                Top = 67
                Width = 27
                Height = 16
                Caption = 'CEP'
              end
              object Label7: TLabel
                Left = 232
                Top = 63
                Width = 40
                Height = 16
                Caption = 'Cidade'
              end
              object Label15: TLabel
                Left = 523
                Top = 63
                Width = 17
                Height = 16
                Caption = 'UF'
              end
              object Label39: TLabel
                Left = 9
                Top = 18
                Width = 57
                Height = 16
                Caption = 'Tipo Logr.'
              end
              object Label40: TLabel
                Left = 441
                Top = 18
                Width = 45
                Height = 16
                Caption = 'N'#250'mero'
              end
              object Label43: TLabel
                Left = 98
                Top = 63
                Width = 126
                Height = 16
                Caption = 'C'#243'digo Municipio (F8)'
              end
              object Label48: TLabel
                Left = 592
                Top = 63
                Width = 140
                Height = 16
                Caption = 'Descri'#231#227'o / Codigo Pais'
              end
              object DBEEndereco1: TDBEdit
                Left = 72
                Top = 37
                Width = 359
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_ENDERECOCORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
              end
              object DBEbairro1: TDBEdit
                Left = 508
                Top = 37
                Width = 221
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_BAIRROCORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 3
              end
              object DBECidade1: TDBEdit
                Left = 231
                Top = 83
                Width = 284
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CIDADECORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 6
              end
              object DBEEstado1: TDBEdit
                Left = 523
                Top = 83
                Width = 58
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_ESTADOCORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 7
                OnKeyPress = DBEEstado1KeyPress
              end
              object DBECep1: TDBEdit
                Left = 8
                Top = 83
                Width = 79
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CEPCORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 4
                OnKeyDown = DBECep1KeyDown
              end
              object edTipoLogradouro1: TDBEdit
                Left = 9
                Top = 37
                Width = 54
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_TIPO_ENDERECO_CORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 0
                OnKeyDown = DBEFoneKeyDown
              end
              object edNumero1: TDBEdit
                Left = 440
                Top = 37
                Width = 62
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_NUMERO_ENDERECO_CORRESP'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
                OnKeyDown = DBEFoneKeyDown
              end
              object DBECodMun1: TDBEdit
                Left = 98
                Top = 83
                Width = 130
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CORRESP_CODMUN'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 5
                OnExit = DBECodMun1Exit
                OnKeyDown = DBECodMun1KeyDown
              end
              object DBEdit4: TDBEdit
                Left = 677
                Top = 83
                Width = 52
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CODPAIS'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 8
                OnKeyPress = DBEEstado1KeyPress
              end
              object CLI_DESPAIS: TDBEdit
                Left = 593
                Top = 83
                Width = 76
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_DESPAIS'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 9
                OnKeyPress = DBEEstado1KeyPress
              end
            end
            object GroupBox3: TGroupBox
              Left = 2
              Top = 117
              Width = 743
              Height = 117
              Caption = '  Endere'#231'o 2  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              object Label11: TLabel
                Left = 72
                Top = 18
                Width = 64
                Height = 16
                Caption = 'Logradouro'
                FocusControl = DBEEndereco2
              end
              object Label12: TLabel
                Left = 508
                Top = 18
                Width = 34
                Height = 16
                Caption = 'Bairro'
              end
              object Label17: TLabel
                Left = 235
                Top = 63
                Width = 40
                Height = 16
                Caption = 'Cidade'
              end
              object Label18: TLabel
                Left = 525
                Top = 63
                Width = 17
                Height = 16
                Caption = 'UF'
              end
              object Label20: TLabel
                Left = 8
                Top = 67
                Width = 27
                Height = 16
                Caption = 'CEP'
              end
              object Label41: TLabel
                Left = 441
                Top = 18
                Width = 45
                Height = 16
                Caption = 'N'#250'mero'
              end
              object Label42: TLabel
                Left = 9
                Top = 18
                Width = 57
                Height = 16
                Caption = 'Tipo Logr.'
              end
              object Label44: TLabel
                Left = 98
                Top = 63
                Width = 126
                Height = 16
                Caption = 'C'#243'digo Municipio (F8)'
              end
              object Label47: TLabel
                Left = 592
                Top = 63
                Width = 140
                Height = 16
                Caption = 'Descri'#231#227'o / Codigo Pais'
              end
              object DBEEndereco2: TDBEdit
                Left = 72
                Top = 37
                Width = 359
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_ENDERECOPEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
                OnEnter = DBEEndereco2Enter
              end
              object DBEbairro2: TDBEdit
                Left = 508
                Top = 37
                Width = 221
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_BAIRROPEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 3
                OnEnter = DBEEndereco2Enter
              end
              object DBECidade2: TDBEdit
                Left = 233
                Top = 83
                Width = 284
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CIDADEPEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 6
                OnEnter = DBEEndereco2Enter
              end
              object DBEEstado2: TDBEdit
                Left = 525
                Top = 83
                Width = 58
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_ESTADOPEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 7
                OnEnter = DBEEndereco2Enter
                OnKeyPress = DBEEstado1KeyPress
              end
              object DBECep2: TDBEdit
                Left = 8
                Top = 83
                Width = 79
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CEPPEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 4
                OnEnter = DBEEndereco2Enter
                OnKeyDown = DBECep1KeyDown
              end
              object edNumero2: TDBEdit
                Left = 440
                Top = 37
                Width = 62
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_NUMERO_ENDERECO_PEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
                OnKeyDown = DBEFoneKeyDown
              end
              object edTipoLogradouro2: TDBEdit
                Left = 9
                Top = 37
                Width = 54
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_TIPO_ENDERECO_PEDIDO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 0
                OnKeyDown = DBEFoneKeyDown
              end
              object DBECodMun2: TDBEdit
                Left = 98
                Top = 83
                Width = 131
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CORRESP_CODMUN'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 5
                OnExit = DBECodMun2Exit
                OnKeyDown = DBECodMun2KeyDown
              end
              object DBEdit3: TDBEdit
                Left = 678
                Top = 83
                Width = 52
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_CODPAIS'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 8
                OnEnter = DBEEndereco2Enter
                OnKeyPress = DBEEstado1KeyPress
              end
              object DBEdit6: TDBEdit
                Left = 594
                Top = 83
                Width = 76
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'CLI_DESPAIS'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 9
                OnKeyPress = DBEEstado1KeyPress
              end
            end
          end
          object TSimpostos: TTabSheet
            Caption = 'Impostos'
            ImageIndex = 3
            object Label22: TLabel
              Left = 5
              Top = 239
              Width = 37
              Height = 16
              Caption = '% ISS'
            end
            object Label29: TLabel
              Left = 5
              Top = 5
              Width = 45
              Height = 16
              Caption = '% IRRF'
            end
            object Label30: TLabel
              Left = 5
              Top = 192
              Width = 46
              Height = 16
              Caption = '% INSS'
            end
            object Label33: TLabel
              Left = 5
              Top = 52
              Width = 37
              Height = 16
              Caption = '% PIS'
              FocusControl = DBEPIS
            end
            object Label34: TLabel
              Left = 5
              Top = 98
              Width = 64
              Height = 16
              Caption = '% COFINS'
              FocusControl = DBECOFINS
            end
            object Label35: TLabel
              Left = 5
              Top = 145
              Width = 48
              Height = 16
              Caption = '% CSLL'
              FocusControl = DBECSLL
            end
            object Label50: TLabel
              Left = 6
              Top = 287
              Width = 71
              Height = 16
              Caption = '% CAU'#199#195'O'
            end
            object DBEIRRF: TDBEdit
              Left = 5
              Top = 25
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCIRRF'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 0
              OnEnter = DBEIRRFEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object DBEISS: TDBEdit
              Left = 5
              Top = 258
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCISS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
              OnEnter = DBEISSEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object DBEPIS: TDBEdit
              Left = 5
              Top = 71
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCPIS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = DBEPISEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object DBECOFINS: TDBEdit
              Left = 5
              Top = 118
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCCOFINS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 4
              OnEnter = DBECOFINSEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object DBECSLL: TDBEdit
              Left = 5
              Top = 165
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCCSLL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
              OnEnter = DBECSLLEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object DBEINSS: TDBEdit
              Left = 5
              Top = 212
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCINSS'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 8
              OnEnter = DBEINSSEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
            object cbRetemISS: TDBCheckBox
              Left = 69
              Top = 262
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm ISS'
              DataField = 'CLI_RETEMISS'
              DataSource = dsCadastro
              TabOrder = 11
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object cbRetemINSS: TDBCheckBox
              Left = 69
              Top = 215
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm INSS'
              DataField = 'CLI_RETEMINSS'
              DataSource = dsCadastro
              TabOrder = 9
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object cbRetemCSLL: TDBCheckBox
              Left = 69
              Top = 169
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm CSLL'
              DataField = 'CLI_RETEMCSLL'
              DataSource = dsCadastro
              TabOrder = 7
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object cbRetemCOFINS: TDBCheckBox
              Left = 69
              Top = 122
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm COFINS'
              DataField = 'CLI_RETEMCOFINS'
              DataSource = dsCadastro
              TabOrder = 5
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object cbRetemPIS: TDBCheckBox
              Left = 69
              Top = 75
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm PIS'
              DataField = 'CLI_RETEMPIS'
              DataSource = dsCadastro
              TabOrder = 3
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object cbRetemIRRF: TDBCheckBox
              Left = 69
              Top = 28
              Width = 119
              Height = 21
              Caption = 'Ret'#233'm IRRF'
              DataField = 'CLI_RETEMIRRF'
              DataSource = dsCadastro
              TabOrder = 1
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object DBEdit5: TDBEdit
              Left = 5
              Top = 304
              Width = 54
              Height = 22
              Ctl3D = False
              DataField = 'CLI_PERCAUCAO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 12
              OnEnter = DBEISSEnter
              OnExit = DBEIRRFExit
              OnKeyPress = DBEIRRFKeyPress
            end
          end
          object TSContatos: TTabSheet
            Caption = 'Mala Direta'
            ImageIndex = 2
            object Label25: TLabel
              Left = 2
              Top = 4
              Width = 35
              Height = 16
              Caption = 'Grupo'
            end
            object Label26: TLabel
              Left = 49
              Top = 4
              Width = 63
              Height = 16
              Caption = 'Anivers'#225'rio'
            end
            object Label27: TLabel
              Left = 165
              Top = 4
              Width = 34
              Height = 16
              Caption = 'Nome'
            end
            object Label28: TLabel
              Left = 444
              Top = 4
              Width = 34
              Height = 16
              Caption = 'Cargo'
            end
            object LtotalItens: TLabel
              Left = 5
              Top = 84
              Width = 251
              Height = 16
              AutoSize = False
              Caption = 'Total itens :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object EGrupo: TEdit
              Left = 2
              Top = 23
              Width = 37
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 1
              ParentCtl3D = False
              TabOrder = 0
            end
            object DTAniversario: TDateTimePicker
              Left = 49
              Top = 23
              Width = 112
              Height = 24
              Date = 1462.526822638890000000
              Format = 'dd - MMMM'
              Time = 1462.526822638890000000
              DateFormat = dfLong
              TabOrder = 1
            end
            object ENome: TEdit
              Left = 165
              Top = 23
              Width = 273
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 60
              ParentCtl3D = False
              TabOrder = 2
            end
            object ECargo: TEdit
              Left = 444
              Top = 23
              Width = 139
              Height = 24
              CharCase = ecUpperCase
              MaxLength = 30
              TabOrder = 3
            end
            object BtnIncluirProduto: TBitBtn
              Tag = 1
              Left = 2
              Top = 54
              Width = 69
              Height = 25
              Caption = 'I&ncluir'
              TabOrder = 4
              OnClick = BtnIncluirProdutoClick
            end
            object BtnAlterarProduto: TBitBtn
              Tag = 1
              Left = 74
              Top = 54
              Width = 69
              Height = 25
              Caption = 'Alterar'
              TabOrder = 5
              OnClick = BtnAlterarProdutoClick
            end
            object BtnDeletarProduto: TBitBtn
              Tag = 1
              Left = 145
              Top = 54
              Width = 69
              Height = 25
              Caption = 'Excluir'
              TabOrder = 6
              OnClick = BtnDeletarProdutoClick
            end
            object DBGrid1: TDBGrid
              Tag = 5
              Left = 0
              Top = 160
              Width = 834
              Height = 198
              Align = alBottom
              Ctl3D = False
              DataSource = DSMalaDireta
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              ParentCtl3D = False
              TabOrder = 7
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid1CellClick
              OnKeyUp = DBGrid1KeyUp
              Columns = <
                item
                  Expanded = False
                  FieldName = 'CODIGO'
                  Title.Caption = 'C'#243'digo'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'GRUPO'
                  Title.Caption = 'Grupo'
                  Width = 37
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ANIVERSARIO'
                  Title.Caption = 'Anivers'#225'rio'
                  Width = 85
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'NOME'
                  Title.Caption = 'Nome'
                  Width = 172
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'CARGO'
                  Title.Caption = 'Cargo'
                  Width = 162
                  Visible = True
                end>
            end
            object BtnConsultaAcompanhamento: TBitBtn
              Left = 220
              Top = 54
              Width = 90
              Height = 26
              Caption = 'Etiq&ueta'
              TabOrder = 8
              OnClick = BtnConsultaAcompanhamentoClick
              Glyph.Data = {
                42010000424D4201000000000000760000002800000011000000110000000100
                040000000000CC00000000000000000000001000000010000000000000000000
                BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
                77777000000070000000007777777000000070FFFFFFF07777700000000070F7
                7777F07777000000000070F77777F07770007000000070F77780008700077000
                000070F7700FFF0000777000000070F708FFFF0807777000000070F80E000F07
                08777000000070F0EFEFEF0770777000000070F0F0000F077077700000007000
                EFEFFF0770777000000077780000000708777000000077770077777807777000
                0000777770077700777770000000777777800087777770000000777777777777
                777770000000}
            end
          end
          object TabSheet1: TTabSheet
            Caption = 'Parametros'
            ImageIndex = 4
            object Label32: TLabel
              Left = 1
              Top = 17
              Width = 116
              Height = 16
              Caption = 'Conta Contabil  (F8)'
            end
            object DBText2: TDBText
              Left = 122
              Top = 17
              Width = 50
              Height = 16
              AutoSize = True
              DataField = 'PLANOCONT_CODIGOCONTABIL'
              DataSource = DSPlanoContabil
            end
            object Label36: TLabel
              Left = 0
              Top = 69
              Width = 141
              Height = 16
              Caption = 'Classifica'#231#227'o Financeira'
            end
            object Label37: TLabel
              Left = 0
              Top = 121
              Width = 94
              Height = 16
              Caption = 'Centro de Custo'
            end
            object Label38: TLabel
              Left = 0
              Top = 170
              Width = 102
              Height = 16
              Caption = 'Tipo de Opera'#231#227'o'
            end
            object Label31: TLabel
              Left = 0
              Top = 260
              Width = 18
              Height = 16
              Caption = 'CV'
            end
            object Label51: TLabel
              Left = 57
              Top = 260
              Width = 99
              Height = 16
              Caption = 'Ident. Exportador'
            end
            object Label52: TLabel
              Left = 2
              Top = 217
              Width = 31
              Height = 16
              Caption = 'Local'
            end
            object DBLookupComboBox1: TDBLookupComboBox
              Left = 1
              Top = 33
              Width = 367
              Height = 22
              Ctl3D = False
              DataField = 'CLI_CONTACONTABIL'
              DataSource = dsCadastro
              KeyField = 'PLANOCONT_CODIGO'
              ListField = 'PLANOCONT_DESCRICAO'
              ListSource = DSPlanoContabil
              ParentCtl3D = False
              TabOrder = 0
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBLClassificacaoFinanceira: TDBLookupComboBox
              Left = 0
              Top = 89
              Width = 369
              Height = 22
              Ctl3D = False
              DataField = 'CLI_CLASSIFICACAO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSClassificacaoFin
              ParentCtl3D = False
              TabOrder = 1
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBLCentroCusto: TDBLookupComboBox
              Left = 0
              Top = 140
              Width = 369
              Height = 22
              Ctl3D = False
              DataField = 'CLI_CENTROCUSTO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSCentroCusto
              ParentCtl3D = False
              TabOrder = 2
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBLTipoOperacaoVenda: TDBLookupComboBox
              Left = 0
              Top = 188
              Width = 587
              Height = 22
              Ctl3D = False
              DataField = 'CLI_TIPOVENDA'
              DataSource = dsCadastro
              KeyField = 'TIPVEND_CODIGO'
              ListField = 'TIPVEND_DESCRICAO'
              ListSource = DSTipoOperacaoVenda
              ParentCtl3D = False
              TabOrder = 3
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object RxDBCalcEdit1: TRxDBCalcEdit
              Left = 0
              Top = 276
              Width = 41
              Height = 21
              DataField = 'CLI_CV'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 0
              MaxLength = 3
              MaxValue = 100.000000000000000000
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
            end
            object DBCheckBox1: TDBCheckBox
              Left = 0
              Top = 313
              Width = 193
              Height = 17
              Caption = 'Faturamento por Hidrometro'
              DataField = 'HIDROMETRO_LOGISITICA'
              DataSource = dsCadastro
              TabOrder = 5
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
            object DBEdit7: TDBEdit
              Left = 55
              Top = 276
              Width = 191
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_CNPJ_EX'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
            end
            object DBLookupComboBox2: TDBLookupComboBox
              Left = 0
              Top = 233
              Width = 193
              Height = 22
              Ctl3D = False
              DataField = 'CLI_LOCAL'
              DataSource = dsCadastro
              KeyField = 'LOC_CODIGO'
              ListField = 'LOC_DESCRICAO'
              ListSource = DSLocal
              ParentCtl3D = False
              TabOrder = 7
              OnKeyDown = DBLCBContaContabilKeyDown
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 480
    Top = 384
  end
  object DSClientes: TDataSource [3]
    Left = 766
    Top = 224
  end
  object DSVendedor: TDataSource [4]
    DataSet = DMGestao.QVendedor
    Left = 336
    Top = 424
  end
  object DSPlanoContabil: TDataSource [5]
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 648
    Top = 208
  end
  object QMalaDireta: TQuery [6]
    AfterOpen = QMalaDiretaAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from MalaDiretaCliente')
    Left = 255
    Top = 456
  end
  object DSMalaDireta: TDataSource [7]
    DataSet = QMalaDireta
    Left = 300
    Top = 368
  end
  object QVerifica: TQuery [8]
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from MalaDiretaCliente')
    Left = 414
    Top = 392
  end
  object DSClassificacaoFin: TDataSource [9]
    DataSet = DMFinanceiro.QPlano
    Left = 776
    Top = 384
  end
  object DSCentroCusto: TDataSource [10]
    DataSet = DMFinanceiro.QCentro
    Left = 384
    Top = 432
  end
  object DSTipoOperacaoVenda: TDataSource [11]
    DataSet = DMFinanceiro.QTipoOperacaoVenda_NAO_EXCLUIDOS
    Left = 424
    Top = 312
  end
  inherited dsCadastro: TDataSource
    Left = 336
    Top = 288
  end
  inherited QCadastro: TQuery
    Active = True
    AfterOpen = QCadastroAfterOpen
    AfterInsert = QCadastroAfterInsert
    AfterCancel = QCadastroAfterCancel
    SQL.Strings = (
      'SELECT'
      '  CLIENTE.*'
      'FROM'
      '  CLIENTE')
    Left = 320
    Top = 168
  end
  inherited dspCadastro: TDataSetProvider
    Left = 464
    Top = 208
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    Left = 392
    Top = 264
    object cdsCadastroCLI_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CLI_CODIGO'
    end
    object cdsCadastroCLI_RAZAO: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      FieldName = 'CLI_RAZAO'
      Size = 60
    end
    object cdsCadastroCLI_FANTASIA: TStringField
      DisplayLabel = 'Nome Fantasia'
      FieldName = 'CLI_FANTASIA'
      Size = 60
    end
    object cdsCadastroCLI_TIPOCLIENTE: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'CLI_TIPOCLIENTE'
      Size = 1
    end
    object cdsCadastroCLI_CPFCNPJ: TStringField
      DisplayLabel = 'CPF/CNPJ'
      FieldName = 'CLI_CPFCNPJ'
    end
    object cdsCadastroCLI_INSCESTADUAL: TStringField
      DisplayLabel = 'Ins. Estadual'
      FieldName = 'CLI_INSCESTADUAL'
    end
    object cdsCadastroCLI_INSCMUNICIPAL: TStringField
      DisplayLabel = 'Ins. Municipal'
      FieldName = 'CLI_INSCMUNICIPAL'
    end
    object cdsCadastroCLI_FONE: TStringField
      DisplayLabel = 'Telefone'
      FieldName = 'CLI_FONE'
    end
    object cdsCadastroCLI_FAX: TStringField
      DisplayLabel = 'Fax'
      FieldName = 'CLI_FAX'
    end
    object cdsCadastroCLI_EMAIL: TStringField
      DisplayLabel = 'Email'
      FieldName = 'CLI_EMAIL'
      Size = 62
    end
    object cdsCadastroCLI_ENDERECOCORRESP: TStringField
      DisplayLabel = 'End. Corres.'
      FieldName = 'CLI_ENDERECOCORRESP'
      Size = 60
    end
    object cdsCadastroCLI_BAIRROCORRESP: TStringField
      DisplayLabel = 'Bairro Corres.'
      FieldName = 'CLI_BAIRROCORRESP'
      Size = 60
    end
    object cdsCadastroCLI_CEPCORRESP: TStringField
      DisplayLabel = 'CEp Corres.'
      FieldName = 'CLI_CEPCORRESP'
      Size = 10
    end
    object cdsCadastroCLI_CIDADECORRESP: TStringField
      DisplayLabel = 'Cidade Corres.'
      FieldName = 'CLI_CIDADECORRESP'
      Size = 60
    end
    object cdsCadastroCLI_ESTADOCORRESP: TStringField
      DisplayLabel = 'UF Corres.'
      FieldName = 'CLI_ESTADOCORRESP'
      Size = 2
    end
    object cdsCadastroCLI_ENDERECOPEDIDO: TStringField
      DisplayLabel = 'End. Pedido'
      FieldName = 'CLI_ENDERECOPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_BAIRROPEDIDO: TStringField
      DisplayLabel = 'Bairro Pedido'
      FieldName = 'CLI_BAIRROPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_CEPPEDIDO: TStringField
      DisplayLabel = 'CEP Pedido'
      FieldName = 'CLI_CEPPEDIDO'
      Size = 10
    end
    object cdsCadastroCLI_CIDADEPEDIDO: TStringField
      DisplayLabel = 'Cidade Pedido'
      FieldName = 'CLI_CIDADEPEDIDO'
      Size = 60
    end
    object cdsCadastroCLI_ESTADOPEDIDO: TStringField
      DisplayLabel = 'UF Pedido'
      FieldName = 'CLI_ESTADOPEDIDO'
      Size = 2
    end
    object cdsCadastroCLI_VENDEDOR: TIntegerField
      DisplayLabel = 'Vendedor'
      FieldName = 'CLI_VENDEDOR'
    end
    object cdsCadastroCLI_OBS: TStringField
      DisplayLabel = 'Observa'#231#227'o'
      FieldName = 'CLI_OBS'
      Size = 255
    end
    object cdsCadastroCLI_CONTATO: TStringField
      DisplayLabel = 'Contato'
      FieldName = 'CLI_CONTATO'
      Size = 60
    end
    object cdsCadastroCLI_CONTACONTABIL: TIntegerField
      DisplayLabel = 'Conta Contabil'
      FieldName = 'CLI_CONTACONTABIL'
    end
    object cdsCadastroCLI_GRUPO: TStringField
      DisplayLabel = 'Grupo'
      FieldName = 'CLI_GRUPO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_CENTROCUSTO: TIntegerField
      DisplayLabel = 'Centro Custo'
      FieldName = 'CLI_CENTROCUSTO'
    end
    object cdsCadastroCLI_CLASSIFICACAO: TIntegerField
      DisplayLabel = 'Classifica'#231#227'o'
      FieldName = 'CLI_CLASSIFICACAO'
    end
    object cdsCadastroCLI_TIPOVENDA: TIntegerField
      DisplayLabel = 'Tipo Venda'
      FieldName = 'CLI_TIPOVENDA'
    end
    object cdsCadastroCLI_IDENTENDCORRESP: TStringField
      FieldName = 'CLI_IDENTENDCORRESP'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDPEDIDO: TStringField
      FieldName = 'CLI_IDENTENDPEDIDO'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDDUPLICATA: TStringField
      FieldName = 'CLI_IDENTENDDUPLICATA'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDNF: TStringField
      FieldName = 'CLI_IDENTENDNF'
      Size = 2
    end
    object cdsCadastroCLI_IDENTENDBLOQUETE: TStringField
      FieldName = 'CLI_IDENTENDBLOQUETE'
      Size = 2
    end
    object cdsCadastroCLI_SITUACAO: TSmallintField
      FieldName = 'CLI_SITUACAO'
    end
    object cdsCadastroCLI_PERCIRRF: TFloatField
      FieldName = 'CLI_PERCIRRF'
    end
    object cdsCadastroCLI_PERCISS: TFloatField
      FieldName = 'CLI_PERCISS'
    end
    object cdsCadastroCLI_PERCPIS: TFloatField
      FieldName = 'CLI_PERCPIS'
    end
    object cdsCadastroCLI_PERCCOFINS: TFloatField
      FieldName = 'CLI_PERCCOFINS'
    end
    object cdsCadastroCLI_PERCCSLL: TFloatField
      FieldName = 'CLI_PERCCSLL'
    end
    object cdsCadastroCLI_PERCINSS: TFloatField
      FieldName = 'CLI_PERCINSS'
    end
    object cdsCadastroCLI_RETEMISS: TSmallintField
      FieldName = 'CLI_RETEMISS'
    end
    object cdsCadastroCLI_CODIGO_LOGISTICA: TIntegerField
      FieldName = 'CLI_CODIGO_LOGISTICA'
    end
    object cdsCadastroHIDROMETRO_LOGISITICA: TIntegerField
      FieldName = 'HIDROMETRO_LOGISITICA'
    end
    object cdsCadastroCLI_RETEMINSS: TSmallintField
      FieldName = 'CLI_RETEMINSS'
    end
    object cdsCadastroCLI_RETEMIRRF: TSmallintField
      FieldName = 'CLI_RETEMIRRF'
    end
    object cdsCadastroCLI_RETEMPIS: TSmallintField
      FieldName = 'CLI_RETEMPIS'
    end
    object cdsCadastroCLI_RETEMCOFINS: TSmallintField
      FieldName = 'CLI_RETEMCOFINS'
    end
    object cdsCadastroCLI_RETEMCSLL: TSmallintField
      FieldName = 'CLI_RETEMCSLL'
    end
    object cdsCadastroCLI_FK_GRUPO: TIntegerField
      FieldName = 'CLI_FK_GRUPO'
    end
    object cdsCadastroCLI_CV: TFloatField
      FieldName = 'CLI_CV'
    end
    object cdsCadastroCLI_SITUACAO_CREDITO: TStringField
      FieldName = 'CLI_SITUACAO_CREDITO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_VALOR_LIMITE: TFloatField
      FieldName = 'CLI_VALOR_LIMITE'
    end
    object cdsCadastroCLI_VALOR_CREDITO: TFloatField
      FieldName = 'CLI_VALOR_CREDITO'
    end
    object cdsCadastroCLI_DATA_LIMITE: TDateTimeField
      FieldName = 'CLI_DATA_LIMITE'
    end
    object cdsCadastroCLI_OBS_LIMITE: TStringField
      FieldName = 'CLI_OBS_LIMITE'
      Size = 255
    end
    object cdsCadastroCLI_TRAVAPEDIDO: TStringField
      FieldName = 'CLI_TRAVAPEDIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_CODIGO_CONFERENCIA: TIntegerField
      FieldName = 'CLI_CODIGO_CONFERENCIA'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroCLI_TIPO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_CORRESP'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroCLI_NUMERO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_CORRESP'
      Size = 10
    end
    object cdsCadastroCLI_TIPO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_PEDIDO'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroCLI_NUMERO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_PEDIDO'
      Size = 10
    end
    object cdsCadastroCLI_CORRESP_CODMUN: TIntegerField
      FieldName = 'CLI_CORRESP_CODMUN'
    end
    object cdsCadastroCLI_DESPAIS: TStringField
      FieldName = 'CLI_DESPAIS'
      Size = 30
    end
    object cdsCadastroCLI_CODPAIS: TIntegerField
      FieldName = 'CLI_CODPAIS'
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroCLI_PERCAUCAO: TFloatField
      FieldName = 'CLI_PERCAUCAO'
    end
    object cdsCadastroCLI_RETEMCAUCAO: TSmallintField
      FieldName = 'CLI_RETEMCAUCAO'
    end
    object cdsCadastroCLI_CNPJ_EX: TStringField
      FieldName = 'CLI_CNPJ_EX'
      Size = 14
    end
    object cdsCadastroCLI_STATUS_BLOQUEIO: TStringField
      FieldName = 'CLI_STATUS_BLOQUEIO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCLI_LOCAL: TIntegerField
      FieldName = 'CLI_LOCAL'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 776
    Top = 352
  end
  inherited OpenDialog1: TOpenDialog
    Left = 96
    Top = 0
  end
  object DSLocal: TDataSource
    AutoEdit = False
    DataSet = QLocal
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 264
    Top = 320
  end
  object QLocal: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From Local'
      'Where'
      '(Excluido <> '#39'S'#39') OR (Excluido Is Null) ')
    Left = 286
    Top = 320
  end
end
